home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 6: Level 6 / 17 Bit - Level 6 (1998)(Epic Marketing)[!].iso / quartz / q1150.dms / q1150.adf / Install < prev    next >
Text File  |  1997-04-10  |  3KB  |  112 lines
  1. ;-----------------------------------------------------
  2. ; Installer script for the Electrics Digital Designer
  3. ;-----------------------------------------------------
  4.  
  5. (set DefaultDestination "Work:Electrics")
  6. (set FileSource         ""              )
  7. (set ExamplesDirectory  "Examples"      )
  8. (set LibraryDirectory   "libs"          )
  9.  
  10. (complete 0)
  11.  
  12. (
  13.   set FileDestination
  14.   (
  15.     askdir (default DefaultDestination)
  16.            (prompt "Electrics program files destination.")
  17.            (help "Destination Drawer\n\n"
  18.                  "The installer will copy all Electrics files into the "
  19.                  "selected Drawer (which may refer to a Volume or a Directory).  "
  20.                  "A new Drawer can be created, or an existing one can be "
  21.                  "chosen from the list.")
  22.   )
  23. )
  24.  
  25. (
  26.   if ((exists FileDestination (noreq)) 0)
  27.   (
  28.     (
  29.       makedir FileDestination 
  30.             (prompt (cat "Creating the directory " FileDestination))
  31.             (help @makedir-help)
  32.             (confirm)
  33.             (infos)
  34.     )
  35.   )
  36. )
  37.  
  38. (complete 5)
  39.  
  40. (
  41.   copyfiles (source (cat FileSource "Schematic"))
  42.             (dest FileDestination)
  43.             (help @copyfiles-help)
  44.             (infos)
  45. )
  46.  
  47. (complete 30)
  48.  
  49. (
  50.   copyfiles (source (cat FileSource "Simulator"))
  51.             (dest FileDestination)
  52.             (help @copyfiles-help)
  53.             (infos)
  54. )
  55.  
  56. (complete 40)
  57.  
  58. (
  59.   copyfiles (source (cat FileSource "Viewer"))
  60.             (dest FileDestination)
  61.             (help @copyfiles-help)
  62.             (infos)
  63. )
  64.  
  65. (complete 50)
  66.  
  67. (
  68.   copyfiles (source (cat FileSource "Electrics.Guide"))
  69.             (dest FileDestination)
  70.             (help @copyfiles-help)
  71.             (infos)
  72. )
  73.  
  74. (complete 60)
  75.  
  76. (
  77.   makedir (tackon FileDestination ExamplesDirectory)
  78.           (prompt "Creating directory for design Examples.")
  79.           (help @makedir-help)
  80.           (infos)
  81. )
  82.  
  83. (complete 65)
  84.  
  85. (
  86.   copyfiles (source (tackon FileSource ExamplesDirectory))
  87.             (dest (tackon FileDestination ExamplesDirectory))
  88.             (all)
  89.             (help @copyfiles-help)
  90.             (infos)
  91. )
  92.  
  93. (complete 95)
  94.  
  95. (
  96.   copylib (source (tackon (tackon FileSource LibraryDirectory) "reqtools.library"))
  97.           (dest "LIBS:")
  98.           (prompt "Electrics requires the ReqTools library.")
  99.           (help "ReqTools Library\n\n"
  100.                 "Electrics requires the ReqTools library in order to run.  "
  101.                 "The file 'reqtools.library will be copied to the LIBS:"
  102.                 "directory if it is not already present.  If an older version"
  103.                 "is present, it will be replaced with a newer version.")
  104.           (confirm)  
  105. )
  106.  
  107. (complete 100)
  108.  
  109. (set @default-dest FileDestination)
  110.  
  111. (exit)
  112.